home *** CD-ROM | disk | FTP | other *** search
-
- // 303 handling gui source code
-
- if(userscreen==9)
- {
- // Step Forward
- if (zcheckMouse(481,424,22,14))
- {
- tbEditStep++;
- if(tbEditStep>15)tbEditStep=0;
- gui_action=73;
- teac=0;
- }
-
- // Step Back
- if (zcheckMouse(484,396,15,8))
- {
- if(tbEditStep==0)
- tbEditStep=15;
- else
- tbEditStep--;
- teac=0;
- gui_action=73;
- }
-
- // Pattern Steps +1
- if (zcheckMouse(137,427,11,9) && tb303[sl3].patternlength[tb303[sl3].selectedpattern]<16)
- {
- tb303[sl3].patternlength[tb303[sl3].selectedpattern]++;
- gui_action=73;
- teac=1;
- }
-
- // Pattern Steps -1
- if (zcheckMouse(137,436,11,9) && tb303[sl3].patternlength[tb303[sl3].selectedpattern]>1)
- {
- tb303[sl3].patternlength[tb303[sl3].selectedpattern]--;
- gui_action=73;
- teac=1;
- }
-
-
- // Pause/Note button
- if (zcheckMouse(450,392,15,8))
- {
- if(tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].pause)
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].pause=0;
- else
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].pause=1;
- teac=10;
- gui_action=73;
- }
-
- // Glide button
- if (zcheckMouse(454,422,8,15))
- {
- if(tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].slide_flag)
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].slide_flag=0;
- else
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].slide_flag=1;
- teac=11;
- gui_action=73;
- }
-
- // Accent button
- if (zcheckMouse(429,422,8,15))
- {
- if(tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].accent_flag)
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].accent_flag=0;
- else
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].accent_flag=1;
-
- teac=12;
- gui_action=73;
- }
-
- // Transpose up button
- if (zcheckMouse(405,422,8,15))
- {
- if(tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].transposeup_flag)
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].transposeup_flag=0;
- else
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].transposeup_flag=1;
-
- teac=13;
- gui_action=73;
- }
-
- // Transpose down button
- if (zcheckMouse(380,422,8,15))
- {
- if(tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].transposedown_flag)
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].transposedown_flag=0;
- else
- tb303[sl3].flag[tb303[sl3].selectedpattern][tbEditStep].transposedown_flag=1;
-
- teac=14;
- gui_action=73;
- }
-
- // Sawtooth switching
- if (zcheckMouse(181,345,6,7))
- {
- tb303[sl3].waveform=0;
- gui_action=73;
- teac=2;
- }
-
- // Square switching
- if (zcheckMouse(187,345,6,7))
- {
- tb303[sl3].waveform=1;
- gui_action=73;
- teac=2;
- }
-
- // NoteOn/Off buttons
-
- if (zcheckMouse(207,422,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=0;gui_action=73;teac=9;}
- if (zcheckMouse(219,397,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=1;gui_action=73;teac=9;}
- if (zcheckMouse(228,422,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=2;gui_action=73;teac=9;}
- if (zcheckMouse(240,397,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=3;gui_action=73;teac=9;}
- if (zcheckMouse(249,422,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=4;gui_action=73;teac=9;}
- if (zcheckMouse(270,422,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=5;gui_action=73;teac=9;}
- if (zcheckMouse(282,397,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=6;gui_action=73;teac=9;}
- if (zcheckMouse(291,422,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=7;gui_action=73;teac=9;}
- if (zcheckMouse(303,397,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=8;gui_action=73;teac=9;}
- if (zcheckMouse(312,422,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=9;gui_action=73;teac=9;}
- if (zcheckMouse(324,397,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=10;gui_action=73;teac=9;}
- if (zcheckMouse(333,422,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=11;gui_action=73;teac=9;}
- if (zcheckMouse(354,422,8,15)){tb303[sl3].tone[tb303[sl3].selectedpattern][tbEditStep]=12;gui_action=73;teac=9;}
-
- // Pattern selection buttons
- if (zcheckMouse(86,357,14,14)) {char gcp=(tb303[sl3].selectedpattern/8)*8;tb303[sl3].selectedpattern=gcp;gui_action=73;teac=0;}
- if (zcheckMouse(101,357,14,14)){char gcp=(tb303[sl3].selectedpattern/8)*8;tb303[sl3].selectedpattern=gcp+1;gui_action=73;teac=0;}
- if (zcheckMouse(117,357,14,14)){char gcp=(tb303[sl3].selectedpattern/8)*8;tb303[sl3].selectedpattern=gcp+2;gui_action=73;teac=0;}
- if (zcheckMouse(132,357,14,14)){char gcp=(tb303[sl3].selectedpattern/8)*8;tb303[sl3].selectedpattern=gcp+3;gui_action=73;teac=0;}
- if (zcheckMouse(86,372,14,14)) {char gcp=(tb303[sl3].selectedpattern/8)*8;tb303[sl3].selectedpattern=gcp+4;gui_action=73;teac=0;}
- if (zcheckMouse(101,372,14,14)){char gcp=(tb303[sl3].selectedpattern/8)*8;tb303[sl3].selectedpattern=gcp+5;gui_action=73;teac=0;}
- if (zcheckMouse(117,372,14,14)){char gcp=(tb303[sl3].selectedpattern/8)*8;tb303[sl3].selectedpattern=gcp+6;gui_action=73;teac=0;}
- if (zcheckMouse(132,372,14,14)){char gcp=(tb303[sl3].selectedpattern/8)*8;tb303[sl3].selectedpattern=gcp+7;gui_action=73;teac=0;}
-
- // Bank selection buttons
- if (zcheckMouse(88,399,14,14)) {tb303[sl3].selectedpattern=(tb303[sl3].selectedpattern-(tb303[sl3].selectedpattern/8)*8);gui_action=73;teac=0;}
- if (zcheckMouse(102,399,14,14)) {tb303[sl3].selectedpattern=((tb303[sl3].selectedpattern-(tb303[sl3].selectedpattern/8)*8))+8;gui_action=73;teac=0;}
- if (zcheckMouse(117,399,14,14)) {tb303[sl3].selectedpattern=((tb303[sl3].selectedpattern-(tb303[sl3].selectedpattern/8)*8))+16;gui_action=73;teac=0;}
- if (zcheckMouse(132,399,14,14)) {tb303[sl3].selectedpattern=((tb303[sl3].selectedpattern-(tb303[sl3].selectedpattern/8)*8))+24;gui_action=73;teac=0;}
-
- if (zcheckMouse(553,405,15,8)){sl3=0;gui_action=73;teac=0;}
- if (zcheckMouse(573,405,15,8)){sl3=1;gui_action=73;teac=0;}
-
- if (zcheckMouse(8,400,64,16))
- {
- for(char alter=0;alter<16;alter++)
- {
- tb303[sl3].tone[tb303[sl3].selectedpattern][alter]=rand()/2731;
- }
- teac=0;gui_action=73;
- }// rand tones
-
- if (zcheckMouse(8,418,64,16))
- {
- for(char alter=0;alter<16;alter++)
- {
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].slide_flag=rand()/16384;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].transposeup_flag=rand()/16384;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].transposedown_flag=rand()/16384;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].accent_flag=rand()/16384;
- }
- teac=0;gui_action=73;
- }// rand flags
-
- if (zcheckMouse(8,382,64,16))
- {
- for(char alter=0;alter<16;alter++)
- {
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].pause=rand()/16384;
- }
- teac=0;gui_action=73;
- }// rand noteon
-
-
- if (zcheckMouse(8,364,64,16))
- {
- for(char alter=0;alter<16;alter++)
- {
- tb303[sl3].tone[tb303[sl3].selectedpattern][alter]=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].pause=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].slide_flag=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].transposeup_flag=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].transposedown_flag=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].accent_flag=0;
- }
- teac=0;gui_action=73;
- }// clear pat...
-
- if (zcheckMouse(176,408,15,8))
- {
- if(tb303engine[sl3].hpf)
- tb303engine[sl3].hpf=false;
- else
- tb303engine[sl3].hpf=true;
- teac=16;
- gui_action=73;
- }
-
- if (zcheckMouse(8,346,64,16))
- {
- for(char alter=0;alter<16;alter++)
- {
- tb303[sl3].tone[tb303[sl3].selectedpattern][alter]=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].pause=1;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].slide_flag=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].transposeup_flag=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].transposedown_flag=0;
- tb303[sl3].flag[tb303[sl3].selectedpattern][alter].accent_flag=0;
- }
- teac=0;gui_action=73;
- }// reset pat...
-
- }
-
-